home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / utils / egale21e.lzh / EGALE.E / EXAMPLES / EXAMPLEB.TXT < prev   
Text File  |  1994-10-17  |  597b  |  36 lines
  1. FUNCTION weekday$(d$)   ! New
  2.   DEFWRD "a-z"
  3.   '
  4.   LOCAL day$,year,mon,day,mo,jh,je,t
  5.   '
  6.   year=VAL(MID$(d$,7))
  7.   mon=VAL(MID$(d$,4,2))
  8.   day=VAL(MID$(d$,1,2))
  9.   '
  10.   mo=mon-2
  11.   jh=year DIV 100
  12.   je=year MOD 100
  13.   IF mo<=0
  14.     ADD mo,12
  15.     DEC je
  16.   ENDIF
  17.   IF je<0
  18.     je=99
  19.     DEC jh
  20.   ENDIF
  21.   t=tag+INT(MUL(2.6,mo)-0.2)+je\4+je+(jh\4-MUL(2,jh))
  22.   WHILE t<0
  23.     ADD t,7
  24.   WEND
  25.   t=t MOD 7
  26.   RESTORE weekday
  27.   tag$="Sunday"
  28.   FOR i%=1 TO t
  29.     READ day$
  30.   NEXT i%
  31.   RETURN day$
  32. weekday:
  33.   DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
  34. ENDFUNC
  35.  
  36.